unit icecast2;

interface

uses SysUtils;

type
    TIcecast2 = record
      user            : string;
      pass            : string;
      adminurl        : string;
      xmlstatsurl     : string;
      listclientsurl  : string;
      kickclienturl   : string;
      pollint         : word;
      mountselected   : string;
      clientselected  : string;
      temp            : string;
    end;

    TIceUser  = record
      ip        : string;
      username  : string;
      connected : integer;
      useragent : string;
      kickurl   : string;
    end;

implementation

end.
 
 
